home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / nt / emacssrc.zip / EMACSSRC.TAR / emacs-19.17 / src / data_p.h < prev    next >
C/C++ Source or Header  |  1993-10-05  |  6KB  |  107 lines
  1. #ifndef __DATA_P_H__
  2. #define __DATA_P_H__
  3.  
  4. extern Lisp_Object wrong_type_argument _P_((register Lisp_Object predicate,
  5.                                             register Lisp_Object value));
  6. extern _VOID_ pure_write_error _P_((void));
  7. extern _VOID_ args_out_of_range _P_((Lisp_Object a1, Lisp_Object a2));
  8. extern _VOID_ args_out_of_range_3 _P_((Lisp_Object a1, Lisp_Object a2,
  9.                                        Lisp_Object a3));
  10. extern Lisp_Object make_number _P_((int num));
  11. extern int sign_extend_lisp_int _P_((int num));
  12. extern Lisp_Object do_symval_forwarding _P_((register
  13.                                              Lisp_Object valcontents));
  14. extern _VOID_ store_symval_forwarding _P_((Lisp_Object sym, register
  15.                                            Lisp_Object valcontents,
  16.                                            register Lisp_Object newval));
  17. extern Lisp_Object find_symbol_value _P_((Lisp_Object sym));
  18. extern Lisp_Object default_value _P_((Lisp_Object sym));
  19. extern Lisp_Object indirect_function _P_((Lisp_Object object));
  20. extern Lisp_Object Farray_length _P_((Lisp_Object array));
  21. extern Lisp_Object long_to_cons _P_((unsigned long i));
  22. extern unsigned long cons_to_long _P_((Lisp_Object c));
  23. extern _VOID_ syms_of_data _P_((void));
  24. extern SIGTYPE arith_error _P_((int signo));
  25. extern _VOID_ init_data _P_((void));
  26.  
  27. DEFUN_P(Feq, (Lisp_Object obj1, Lisp_Object obj2));
  28. DEFUN_P(Fnull, (Lisp_Object obj));
  29. DEFUN_P(Fconsp, (Lisp_Object obj));
  30. DEFUN_P(Fatom, (Lisp_Object obj));
  31. DEFUN_P(Flistp, (Lisp_Object obj));
  32. DEFUN_P(Fnlistp, (Lisp_Object obj));
  33. DEFUN_P(Fsymbolp, (Lisp_Object obj));
  34. DEFUN_P(Fvectorp, (Lisp_Object obj));
  35. DEFUN_P(Fstringp, (Lisp_Object obj));
  36. DEFUN_P(Farrayp, (Lisp_Object obj));
  37. DEFUN_P(Fsequencep, (register Lisp_Object obj));
  38. DEFUN_P(Fbufferp, (Lisp_Object obj));
  39. DEFUN_P(Fmarkerp, (Lisp_Object obj));
  40. DEFUN_P(Fsubrp, (Lisp_Object obj));
  41. DEFUN_P(Fbyte_code_function_p, (Lisp_Object obj));
  42. DEFUN_P(Fchar_or_string_p, (register Lisp_Object obj));
  43. DEFUN_P(Fintegerp, (Lisp_Object obj));
  44. DEFUN_P(Finteger_or_marker_p, (register Lisp_Object obj));
  45. DEFUN_P(Fnatnump, (Lisp_Object obj));
  46. DEFUN_P(Fnumberp, (Lisp_Object obj));
  47. DEFUN_P(Fnumber_or_marker_p, (Lisp_Object obj));
  48. DEFUN_P(Ffloatp, (Lisp_Object obj));
  49. DEFUN_P(Fcar, (register Lisp_Object list));
  50. DEFUN_P(Fcar_safe, (Lisp_Object object));
  51. DEFUN_P(Fcdr, (register Lisp_Object list));
  52. DEFUN_P(Fcdr_safe, (Lisp_Object object));
  53. DEFUN_P(Fsetcar, (register Lisp_Object cell, register Lisp_Object newcar));
  54. DEFUN_P(Fsetcdr, (register Lisp_Object cell, register Lisp_Object newcdr));
  55. DEFUN_P(Fboundp, (register Lisp_Object sym));
  56. DEFUN_P(Ffboundp, (register Lisp_Object sym));
  57. DEFUN_P(Fmakunbound, (register Lisp_Object sym));
  58. DEFUN_P(Ffmakunbound, (register Lisp_Object sym));
  59. DEFUN_P(Fsymbol_function, (register Lisp_Object symbol));
  60. DEFUN_P(Fsymbol_plist, (register Lisp_Object sym));
  61. DEFUN_P(Fsymbol_name, (register Lisp_Object sym));
  62. DEFUN_P(Ffset, (register Lisp_Object sym, register Lisp_Object newdef));
  63. DEFUN_P(Fdefalias, (register Lisp_Object sym, register Lisp_Object newdef));
  64. DEFUN_P(Fdefine_function, (register Lisp_Object sym,
  65.                            register Lisp_Object newdef));
  66. DEFUN_P(Fsetplist, (register Lisp_Object sym, register Lisp_Object newplist));
  67. DEFUN_P(Fsymbol_value, (Lisp_Object sym));
  68. DEFUN_P(Fset, (register Lisp_Object sym, register Lisp_Object newval));
  69. DEFUN_P(Fdefault_boundp, (Lisp_Object sym));
  70. DEFUN_P(Fdefault_value, (Lisp_Object sym));
  71. DEFUN_P(Fset_default, (Lisp_Object sym, Lisp_Object value));
  72. DEFUN_P(Fsetq_default, (Lisp_Object args));
  73. DEFUN_P(Fmake_variable_buffer_local, (register Lisp_Object sym));
  74. DEFUN_P(Fmake_local_variable, (register Lisp_Object sym));
  75. DEFUN_P(Fkill_local_variable, (register Lisp_Object sym));
  76. DEFUN_P(Findirect_function, (register Lisp_Object object));
  77. DEFUN_P(Faref, (register Lisp_Object array, Lisp_Object idx));
  78. DEFUN_P(Faset, (register Lisp_Object array, Lisp_Object idx,
  79.                 Lisp_Object newelt));
  80. DEFUN_P(Feqlsign, (register Lisp_Object num1, register Lisp_Object num2));
  81. DEFUN_P(Flss, (register Lisp_Object num1, register Lisp_Object num2));
  82. DEFUN_P(Fgtr, (register Lisp_Object num1, register Lisp_Object num2));
  83. DEFUN_P(Fleq, (register Lisp_Object num1, register Lisp_Object num2));
  84. DEFUN_P(Fgeq, (register Lisp_Object num1, register Lisp_Object num2));
  85. DEFUN_P(Fneq, (register Lisp_Object num1, register Lisp_Object num2));
  86. DEFUN_P(Fzerop, (register Lisp_Object num));
  87. DEFUN_P(Fnumber_to_string, (register Lisp_Object num));
  88. DEFUN_P(Fstring_to_number, (register Lisp_Object str));
  89. DEFUN_P(Fplus, (int nargs, Lisp_Object *args));
  90. DEFUN_P(Fminus, (int nargs, Lisp_Object *args));
  91. DEFUN_P(Ftimes, (int nargs, Lisp_Object *args));
  92. DEFUN_P(Fquo, (int nargs, Lisp_Object *args));
  93. DEFUN_P(Frem, (register Lisp_Object num1, register Lisp_Object num2));
  94. DEFUN_P(Fmax, (int nargs, Lisp_Object *args));
  95. DEFUN_P(Fmin, (int nargs, Lisp_Object *args));
  96. DEFUN_P(Flogand, (int nargs, Lisp_Object *args));
  97. DEFUN_P(Flogior, (int nargs, Lisp_Object *args));
  98. DEFUN_P(Flogxor, (int nargs, Lisp_Object *args));
  99. DEFUN_P(Fquo, (int nargs, Lisp_Object *args));
  100. DEFUN_P(Fash, (register Lisp_Object num1, register Lisp_Object num2));
  101. DEFUN_P(Flsh, (register Lisp_Object num1, register Lisp_Object num2));
  102. DEFUN_P(Fadd1, (register Lisp_Object num));
  103. DEFUN_P(Fsub1, (register Lisp_Object num));
  104. DEFUN_P(Flognot, (register Lisp_Object num));
  105.     
  106. #endif
  107.